home *** CD-ROM | disk | FTP | other *** search
/ The World of Computer Software / The World of Computer Software.iso / cp-80j.zip / CMDPOST2.CP_ < prev    next >
Text File  |  1992-12-02  |  19KB  |  528 lines
  1. &Dir
  2.  Create Director&y...
  3.         a=askline("Create Directory","Enter directory to create",DirGet())
  4.         terminate(a=="","Create Error","Cannot create directory with null name")
  5.         DirMake(strtrim(a))
  6.         SetDisplay("","","")
  7.         drop(a)
  8.  
  9.  &Rename Directory...
  10.         a=DirItemize("")
  11.         terminate(ItemCount(a," ")!=1,"Rename Error","Zero or more than one dir specified")
  12.         b=strtrim(AskLine("Rename Directory","Enter new directory name for %a%",a))
  13.         terminate(a==b || b=="","Rename Error","Illegal name change specified")
  14.         DirRename(strtrim(a),b)
  15.         SetDisplay("","","")
  16.         OtherUpdate()
  17.         drop(a,b)
  18.  
  19.  &Kill Directory
  20.         f=DirItemize("")
  21.         terminate(strlen(f)==0,"Delete Directory","No directory specified")
  22.         ;terminate(@no==askyesno("Delete Directory",f),"Delete Directory","Directory not deleted")
  23.         DirRemove(strtrim(f))
  24.         SetDisplay("","","")
  25.         OtherUpdate()   ; Well if the "other" CmdPost Window points to the
  26.                       ; same directory, it *is* nice
  27.         drop(f)
  28.  
  29.  &Change Directory...
  30.         a=DirGet()
  31.         b=strindex(a,':',1,@fwdscan)
  32.         c=strtrim(askline("Change Directory","Enter directory name",strsub(a,b+1,strlen(a)-b-1)))
  33.         terminate(c=="","Directory Error","Directory with null name does not exist")
  34.         DirChange(c)
  35.         SetDisplay("","","")
  36.         drop(a,b,c)                       
  37.         
  38.  _&Nuke ENTIRE file/dir structure
  39.         files=FileItemize("")
  40.         numfile=ItemCount(files, " ")
  41.         totdir=0
  42.         dir1=DirGet()
  43.         sub1 = DirItemize("")
  44.         numdir1=Itemcount(sub1, " ")
  45.         if (numfile+numdir1)==0 then goto noselect
  46.         Pause("WARNING: Are you Sure :WARNING", "You are about to delete all kinds of stuff%CR%containing possibly 10 zillion files and subdirs.%CR%Continue?")
  47.         if AskYesNo("WARNING: Are you REALLY Sure :WARNING","Shall we stop now and not delete anything?")==@YES then goto quitnow
  48.         if AskYesNo("WARNING: Are you Sure :WARNING","CONTINUE???!!!??? %CR%Are you sure you can find your backups???")==@NO then goto nobackup
  49.   
  50.         if numfile > 0 then FileDelete(files)   ;Whap top level files...
  51.         If numdir1 == 0 Then Goto didit
  52.         level=1
  53.         index1=0
  54.   
  55.   
  56.         :loop
  57.         If index%level% == numdir%level% Then Goto upalevel
  58.         index%level% = index%level% + 1
  59.         DirChange(StrCat(dir%level%, ItemExtract(index%level%, sub%level%, " ")))
  60.         totdir=totdir+1
  61.         Errormode(@off)
  62.         FileDelete("*.*")
  63.         Errormode(@cancel)
  64.         level = level + 1
  65.         dir%level% = DirGet()
  66.         sub%level% = DirItemize("*.*")
  67.         numdir%level% = ItemCount(sub%level%, " ")
  68.         index%level% = 0
  69.         goto loop
  70.   
  71.         :upalevel
  72.         a=strlen(dir%level%)                                 ;7.0S-- bug workaround
  73.         if a>3 then dir%level%=strsub(dir%level%,1,a-1)      ;ditto
  74.         DirChange(dir%level%)
  75.         DirRemove(sub%level%)
  76.         drop(dir%level%,sub%level%,index%level%,numdir%level%)
  77.         level=level-1
  78.         if level!=0 then goto loop
  79.         :didit
  80.         SetDisplay("","","")
  81.         OtherUpdate()
  82.         Display(4,"Operation Complete","Files in %totdir% subdirectories deleted")
  83.         goto done
  84.   
  85.         :noselect
  86.         Message("Sorry", "You must highlight target files/directories first.") 
  87.         goto done
  88.         :nobackup
  89.         Message("Well Then","We better not play around with nuclear devices")
  90.         goto done
  91.         :quitnow
  92.         Message("Good Thinking","A wise move. Nothing deleted")
  93.         :done
  94.         drop(files,numfile,dir1,numdir1,totdir)
  95.  
  96.  &Duplicate ENTIRE file/dir structure
  97.         Other0=OtherDir()
  98.         totdir=0
  99.         files=FileItemize("")
  100.         numfile=ItemCount(files, " ")
  101.         dir1=DirGet()
  102.         OrigDir=strsub(dir1,1,1)            ;7.0s-- bug workaround
  103.         sub1 = DirItemize("")
  104.         numdir1=Itemcount(sub1, " ")
  105.         if (numfile+numdir1)==0 then goto noselect
  106.         Other0=AskLine("Replicate structure",strcat(sub1,' ',files,CR,CR,"to"),Other0)
  107.         terminate(Other0=="" || Other0==" ","Copy Error","Cannot copy to null file name")
  108.         a=strsub(Other0,strlen(Other0),1)
  109.         if (a!=":" && a!="\") then Other0=strcat(Other0,"\")
  110.   
  111.         if numfile > 0 then FileCopy(files,Other0,@FALSE)   ;Copy top level files...
  112.         If numdir1 == 0 Then Goto didit
  113.         level=1
  114.         index1=0
  115.         ; debug(1)
  116.         :loop
  117.         If index%level% == numdir%level% Then Goto upalevel
  118.         index%level% = index%level% + 1
  119.         DirChange(StrCat(dir%level%, ItemExtract(index%level%, sub%level%, " ")))
  120.         totdir=totdir+1
  121.         a=level-1
  122.         Other%level%=StrCat(Other%a%,ItemExtract(index%level%, sub%level%, " "),"\")
  123.         Errormode(@off)
  124.         DirMake(Other%level%)
  125.         LogDisk(Origdir)                       ;7.0s-- bug workaround
  126.         FileCopy("*.*",Other%level%,@FALSE)
  127.         Errormode(@cancel)
  128.         level = level + 1
  129.         dir%level% = DirGet()
  130.         sub%level% = DirItemize("*.*")
  131.         numdir%level% = ItemCount(sub%level%, " ")
  132.         index%level% = 0
  133.         goto loop
  134.   
  135.         :upalevel
  136.         a=strlen(dir%level%)                              ;7.0S-- Workaround
  137.         if a>3 then dir%level%=strsub(dir%level%,1,a-1)   ;7.0S-- Workaround
  138.         DirChange(dir%level%)
  139.        
  140.         drop(dir%level%,sub%level%,index%level%,Other%level%)
  141.         level=level-1
  142.         if level!=0 then goto loop
  143.         :didit
  144.         SetDisplay("","","")
  145.         OtherUpdate()
  146.         Display(4,"Duplicate Structure Complete","%totdir% directories duplicated")
  147.         goto done
  148.   
  149.         :noselect
  150.         Message("Sorry", "You must highlight source files/directories first.")
  151.         :done
  152.         drop(files,numfile,dir1,numdir1,Other0)
  153.         
  154.  &Move ENTIRE file/dir structure
  155.         Other0=OtherDir()
  156.         totdir=0
  157.         files=FileItemize("")
  158.         numfile=ItemCount(files, " ")
  159.         dir1=DirGet()
  160.         OrigDir=strsub(dir1,1,1)            ;7.0s-- bug workaround
  161.         sub1 = DirItemize("")
  162.         numdir1=Itemcount(sub1, " ")
  163.         if (numfile+numdir1)==0 then goto noselect
  164.         Other0=AskLine("Move structure",strcat(sub1,' ',files,CR,CR,"to"),Other0)
  165.         terminate(Other0=="" || Other0==" ","Move Error","Cannot move to null name")
  166.         a=strsub(Other0,strlen(Other0),1)
  167.         if (a!=":" && a!="\") then Other0=strcat(Other0,"\")
  168.   
  169.         if numfile > 0 then FileMove(files,Other0,@FALSE)   ;Copy top level files...
  170.         If numdir1 == 0 Then Goto didit
  171.         level=1
  172.         index1=0
  173.         ; debug(1)
  174.         :loop
  175.         If index%level% == numdir%level% Then Goto upalevel
  176.         index%level% = index%level% + 1
  177.         DirChange(StrCat(dir%level%, ItemExtract(index%level%, sub%level%, " ")))
  178.         totdir=totdir+1
  179.         a=level-1
  180.         Other%level%=StrCat(Other%a%,ItemExtract(index%level%, sub%level%, " "),"\")
  181.         Errormode(@off)
  182.         DirMake(Other%level%)
  183.         LogDisk(Origdir)                       ;7.0s-- bug workaround
  184.         FileMove("*.*",Other%level%,@FALSE)
  185.         Errormode(@cancel)
  186.         level = level + 1
  187.         dir%level% = DirGet()
  188.         sub%level% = DirItemize("*.*")
  189.         numdir%level% = ItemCount(sub%level%, " ")
  190.         index%level% = 0
  191.         goto loop
  192.   
  193.         :upalevel
  194.         a=strlen(dir%level%)                              ;7.0S-- Workaround
  195.         if a>3 then dir%level%=strsub(dir%level%,1,a-1)   ;7.0S-- Workaround
  196.         DirChange(dir%level%)
  197.         DirRemove(sub%level%)
  198.         drop(dir%level%,sub%level%,index%level%,Other%level%)
  199.         level=level-1
  200.         if level!=0 then goto loop
  201.         :didit
  202.         SetDisplay("","","")
  203.         OtherUpdate()
  204.         Display(4,"Move Structure Complete","%totdir% directories moved")
  205.         goto done
  206.   
  207.         :noselect
  208.         Message("Sorry", "You must highlight source files/directories first.")
  209.         :done
  210.         drop(files,numfile,dir1,numdir1,Other0)
  211.         
  212.  &Size of ENTIRE file/dir structure
  213.         call("wwwmenus.dll","DIRSIZE")
  214.  
  215.  
  216.  
  217.  
  218.  _&Format Diskette...
  219.         ; A wonderful example of variable substitution
  220.         D1="1) 5.25 High Density (1.2M)"
  221.         D2="2) 5.25 Standard (360K)"
  222.         D3="3) 3.5  High Density (1.44M)"
  223.         D4="4) 3.5  Standard (720K)"
  224.         D0="0) None"
  225.         DriveA=inireadpvt(IniSection,"DriveA","ASK",IniFile)
  226.         DriveB=inireadpvt(IniSection,"DriveB","ASK",IniFile)
  227.         if DriveA!="ASK" & DriveB!="ASK" then goto DOFORMAT
  228.  
  229.         DC="%D1%|%D2%|%D3%|%D4%|%D0%"
  230.         Message("Attention","Command Post needs to learn what kind of floppies %CR% the system has.  Please select accordingly.")
  231.         :ASKA
  232.         a=ItemSelect("Select type of Drive A",DC,"|")
  233.         if a!="" then goto OKDRIVEA
  234.         Message("You MUST select an option for A.","Please retry")
  235.         goto ASKA
  236.         :OKDRIVEA
  237.         DriveA=strsub(a,1,1)
  238.         iniwritepvt(IniSection,"DriveA",DriveA,IniFile)
  239.  
  240.         :ASKB
  241.         a=ItemSelect("Select type of Drive B",DC,"|")
  242.         if a!="" then goto OKDRIVEB
  243.         Message("You MUST select an option for B.","Please retry")
  244.         goto ASKB
  245.         :OKDRIVEB
  246.         DriveB=strsub(a,1,1)
  247.         iniwritepvt(IniSection,"DriveB",DriveB,IniFile)
  248.  
  249.         :DOFORMAT
  250.         A0=""
  251.         A1="1)    A:   5.25 HD (1.2M)|2)    A:   5.25 DD (360K)"
  252.         A2="2)    A:   5.25 DD (360K)"
  253.         A3="3)    A:   3.5 HD (1.44M)|4)    A:   3.5 Std (720K)"
  254.         A4="4)    A:   3.5 Standard (720K)"
  255.         B0=""
  256.         B1="5)    B:   5.25 HD (1.2M)|6)    B:   5.25 DD (360K)"
  257.         B2="6)    B:   5.25 Standard (360K)"
  258.         B3="7)    B:   3.5 HD (1.44M)|8)    B:   3.5 DD (720K)"
  259.         B4="8)    B:   3.5 DD (720K)"
  260.         FF=strcat(A%DriveA%,"|",B%DriveB%)
  261.         drop(A0,A1,A2,A3,A4,B0,B1,B2,B3,B4)
  262.  
  263.         FF=ItemSelect("Choose Format Type Desired",FF,"|")
  264.         terminate(FF=="","Format","No parameters selected")
  265.  
  266.         FF=strsub(FF,1,1)   ; FF will be 1 thru 8 (with luck)
  267.         DR=strsub("AB",(FF>4)+1,1)  ; DR is desired drive
  268.         FF=FF-((FF>4)*4)            ; FF is 1 thru 4
  269.         F11=""
  270.         F12="/4"
  271.         F22=""
  272.         F33=""
  273.         F34="/n:9 /t:80"
  274.         F44=""
  275.         DC=Drive%DR%   ; get drive type
  276.         FC=F%DC%%FF%
  277.         FC="%DR%:  %FC%"
  278.         DC=strsub(D%FF%,4,strlen(d%FF%)-3)
  279.         Pause("Attention",strcat("Preparing to format %DC%",CR,"diskette in Drive %DR% with command:",CR,"FORMAT %FC%"))
  280.         comspec=environment("COMSPEC")
  281.         run(comspec,"/c format.com %FC%")
  282.         drop(D0,D1,D2,D3,D4,DC,xxx,DriveA,DriveB)
  283.         drop(FF,DR,F11,F12,F22,F33,F34,F44,DC,FC,comspec)
  284.  
  285.  _Directory &Tree
  286.         run("%HomeBase%cp_tree.exe","")
  287.  
  288.  
  289.  
  290. &View
  291.  &Short
  292.         SetDisplay("SHORT","","")
  293.         MenuChange("ViewShort",@CHECK)
  294.         MenuChange("ViewLong",@UNCHECK)
  295.         iniwritepvt(IniSection,"ViewShortLong","SHORT",IniFile)
  296.  &Long
  297.         SetDisplay("LONG","","")
  298.         MenuChange("ViewShort",@UNCHECK)
  299.         MenuChange("ViewLong",@CHECK)
  300.         iniwritepvt(IniSection,"ViewShortLong","LONG",IniFile)
  301.  _&All
  302.         SetDisplay("","","*.*")
  303.         MenuChange("ViewAll",@CHECK)
  304.         MenuChange("ViewPartial",@UNCHECK)
  305.         MenuChange("ViewPrograms",@UNCHECK)
  306.         iniwritepvt(IniSection,"ViewWhat","ALL",IniFile)
  307.  &Partial...
  308.         a=inireadpvt(IniSection,"Partial","*.*",IniFile)
  309.         a=AskLine("View Partial","Enter types of files desired",a)
  310.         iniwritepvt(IniSection,"Partial",a,IniFile)
  311.         SetDisplay("","",a)
  312.         MenuChange("ViewAll",@UNCHECK)
  313.         MenuChange("ViewPartial",@CHECK)
  314.         MenuChange("ViewPrograms",@UNCHECK)
  315.         iniwritepvt(IniSection,"ViewWhat","PARTIAL",IniFile)
  316.  P&rograms
  317.         SetDisplay("","","*.EXE *.COM *.BAT *.PIF")
  318.         MenuChange("ViewAll",@UNCHECK)
  319.         MenuChange("ViewPartial",@UNCHECK)
  320.         MenuChange("ViewPrograms",@CHECK)
  321.         iniwritepvt(IniSection,"ViewWhat","PROGRAMS",IniFile)
  322.  _By &Name
  323.         SetDisplay("","NAME","")
  324.         MenuChange("ViewByName",@CHECK)
  325.         MenuChange("ViewByDate",@UNCHECK)
  326.         MenuChange("ViewBySize",@UNCHECK)
  327.         MenuChange("ViewByKind",@UNCHECK)
  328.         MenuChange("ViewUnsorted",@UNCHECK)
  329.         iniwritepvt(IniSection,"ViewBy","NAME",IniFile)
  330.  By &Date
  331.         SetDisplay("","DATE","")
  332.         MenuChange("ViewByName",@UNCHECK)
  333.         MenuChange("ViewByDate",@CHECK)
  334.         MenuChange("ViewBySize",@UNCHECK)
  335.         MenuChange("ViewByKind",@UNCHECK)
  336.         MenuChange("ViewUnsorted",@UNCHECK)
  337.         iniwritepvt(IniSection,"ViewBy","DATE",IniFile)
  338.  By Si&ze
  339.         SetDisplay("","SIZE","")
  340.         MenuChange("ViewByName",@UNCHECK)
  341.         MenuChange("ViewByDate",@UNCHECK)
  342.         MenuChange("ViewBySize",@CHECK)
  343.         MenuChange("ViewByKind",@UNCHECK)
  344.         MenuChange("ViewUnsorted",@UNCHECK)
  345.         iniwritepvt(IniSection,"ViewBy","SIZE",IniFile)
  346.  By &Kind       
  347.         SetDisplay("","KIND","")
  348.         MenuChange("ViewByName",@UNCHECK)
  349.         MenuChange("ViewByDate",@UNCHECK)
  350.         MenuChange("ViewBySize",@UNCHECK)
  351.         MenuChange("ViewByKind",@CHECK)
  352.         MenuChange("ViewUnsorted",@UNCHECK)
  353.         iniwritepvt(IniSection,"ViewBy","KIND",IniFile)
  354.  &Unsorted
  355.         SetDisplay("","UNSORTED","")
  356.         MenuChange("ViewByName",@UNCHECK)
  357.         MenuChange("ViewByDate",@UNCHECK)
  358.         MenuChange("ViewBySize",@UNCHECK)
  359.         MenuChange("ViewByKind",@UNCHECK)
  360.         MenuChange("ViewUnsorted",@CHECK)
  361.         iniwritepvt(IniSection,"ViewBy","UNSORTED",IniFile)
  362.  
  363.  |&1 Stack
  364.         winarrange(1)
  365.  &2 Arrange
  366.         winarrange(2)
  367.  &3 Arrange in Rows
  368.         winarrange(3)
  369.  &4 Arrange in Columns
  370.         winarrange(4)
  371.  _&5 (w/o CP) Stack
  372.         winiconize("")
  373.         winarrange(1)
  374.  &6 (w/o CP) Arrange
  375.         winiconize("")
  376.         winarrange(2)
  377.  &7 (w/o CP) Arrange in Rows
  378.         winiconize("")
  379.         winarrange(3)
  380.  &8 (w/o CP) Arrange in Cols
  381.         winiconize("")
  382.         winarrange(4)
  383.         
  384.  _Change &Wallpaper
  385.            Call("wwwmenus.dll","WALLPAPER")
  386.  
  387.  _Blank Screen Now!
  388.             a=IniReadPvt("Boot","SCRNSAVE.EXE","SSMYST.SCR","SYSTEM.INI")
  389.             a=strreplace(a,".","*")  ;e.g. change ssmyst.scr to ssmyst*scr
  390.             run(a,"/s")   ;Is is possible to run wierd extensions IF one
  391.                           ;replaces the .ext with *ext
  392.  
  393.  
  394. &Main
  395.  &Command Post (More Windows)
  396.        a=IntControl(2,0,0,0,0)      ; retrieves number of open CmdPost Windows
  397.        if a==4 then goto posit
  398.           DirChange(HomeBase)
  399.           run("cmdpost.exe","")
  400.           exit
  401.        :posit
  402.           IntControl(6,0,0,0,0)   ;Repositions all open cp windows
  403.  Command &Post (Show All Windows)
  404.           IntControl(6,0,0,0,0)   ;Repositions all open cp windows
  405.        
  406.  Control &Panel
  407.         errormode(@off)
  408.         terminate(winactivate("Control Panel"),"","")
  409.         errormode(@cancel)
  410.         run("control.exe","")
  411.  
  412.  C&lipboard
  413.         errormode(@off)
  414.         terminate(winactivate("Clipboard"),"","") ;Already Running
  415.         errormode(@cancel)
  416.         run("Clipbrd.exe","")
  417.  
  418.  &DOS Prompt
  419.         run(Environment("COMSPEC"),"")
  420.  
  421.  _Run "Managers"           
  422.   P&rogram Manager
  423.         errormode(@off)
  424.         terminate(winactivate("Program Manager"),"","") ;Already Running
  425.         errormode(@cancel)
  426.         run("Progman.exe","")
  427.  
  428.   &File Manager
  429.         errormode(@off)
  430.         terminate(winactivate("File Manager"),"","") ;Already Running
  431.         errormode(@cancel)
  432.         run("winfile.exe","")
  433.  
  434.   Print &Manager
  435.         run("printman.exe","")   ; takes care of itself
  436.  
  437.  
  438.  _Edit Configurations
  439.   &Edit CmdPost menus
  440.         a=""
  441.         i=0
  442.         :NEXT1
  443.         if a=="" then k=""
  444.                  else k="~"
  445.         j=IniReadPvt(IniSection,"Menu%i%","",IniFile)
  446.         if j!=""  then a=strcat(a,k,j)
  447.         i=i+1
  448.         if i<10 then goto NEXT1
  449.         drop(i,j,k)
  450.         a=TextSelect("Choose Menu to Edit",a,"~")
  451.         if a=="" then exit
  452.         a=FileLocate(a)
  453.         adir=FilePath(a)
  454.         DirChange(adir)
  455.         broot=FileRoot(a)
  456.         bname=strcat(broot,".BAK")
  457.         FileCopy(a,bname,@FALSE)
  458.         RunZoom("notepad.exe",a)
  459.  
  460. ;  Dialog Editor
  461. ;        run("wwwdlged.exe","")
  462.         
  463.   _Load &WIL Help File
  464.         a=FileLocate("WIL.HLP");
  465.         if a=="" then a=IniReadPvt("WWWSetup","CommandPost","",IniFile) ; Get installed directory
  466.                  then a="%a%\HELP\WIL.HLP"           ; add HELP path
  467.         Terminate(!FileExist(a),"Install Error","Cannot find WIL.HLP")
  468.         WinHelp("%a%","CONTENTS","")
  469.  
  470.   Load &CmdPost Help File
  471.         a=FileLocate("CMDPOST.HLP");
  472.         if a=="" then a=IniReadPvt("WWWSetup","CommandPost","",IniFile) ; Get installed directory
  473.                  then a="%a%\HELP\CMDPOST.HLP"           ; add HELP path
  474.         Terminate(!FileExist(a),"Install Error","Cannot find CMDPOST.HLP")
  475.         WinHelp("%a%","CONTENTS","")
  476.  
  477.   _Edit &INI files
  478.         call("wwwmenus.dll","INIEDIT")
  479.  
  480.  
  481.   Run System Confi&guration Editor
  482.            run("sysedit.exe","")  ;takes care of itself
  483.  
  484.   Run Windows Setup
  485.         DirChange(DirWindows(0))
  486.         run("setup.exe","")
  487.         drop(a)
  488.  
  489.   Restart Windows
  490.    NO! Wait
  491.         Display(4,"OK","I'll wait")
  492.    Really! Doit!
  493.         IntControl(66,0,0,0,0)
  494.    Reboot! this machine
  495.         IntControl(67,0,0,0,0)
  496.         
  497.            
  498.  
  499.   _PIF Edi&t...
  500.         a=strupper(FileExtension(CurrentFile()))
  501.         if a!="PIF" then goto PIF2
  502.         run("pifedit.exe",CurrentFile())
  503.         exit
  504.         :PIF2
  505.         if IsKeyDown(@SHIFT)==@YES then DirChange(FilePath(FileLocate("_default.pif")))
  506.         a=FileItemize("*.PIF")
  507.         if a==""  then DirChange(FilePath(FileLocate("_default.pif")))
  508.         if a=="" then a=FileItemize("*.PIF")
  509.         a=ItemSelect("Choose a PIF File to edit",a," ")
  510.         run("pifedit.exe",a)
  511.         exit
  512.  
  513.  _&System Information
  514.        call("wwwmenus.dll","SysInfo 'Command Post'")
  515.  
  516.  Interactive WIL
  517.   Execute WIL Function
  518.         Call("wwwmenus.dll","CMDSTACK NEWCMD")
  519.   Execute a Previous Entry
  520.         Call("wwwmenus.dll","CMDSTACK PREVIOUS")
  521.   _Flush Previous Entries
  522.         Call("wwwmenus.dll","CMDSTACK FLUSH")
  523.  
  524.  
  525.  
  526.  
  527.     
  528.